From 200521dd4a34479273eb62c69940f037c8321465 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 12 Jan 2008 23:20:54 +0000 Subject: [PATCH] (woman-parse-numeric-arg): Change handling of `==': can be interned without a function definition. --- lisp/woman.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/woman.el b/lisp/woman.el index a04b606280b..595bb6cc9a1 100644 --- a/lisp/woman.el +++ b/lisp/woman.el @@ -3558,8 +3558,10 @@ The expression may be an argument in quotes." (setq value (funcall op value (woman-parse-numeric-value)))) ((looking-at "[<=>]=?") ; relational operators (goto-char (match-end 0)) - (setq op (or (intern-soft (match-string 0)) - (intern-soft "="))) + (setq op (intern-soft + (if (string-equal (match-string 0) "==") + "=" + (match-string 0)))) (setq value (if (funcall op value (woman-parse-numeric-value)) 1 0))) ((memq (setq op (following-char)) '(?& ?:)) ; Boolean and / or -- 2.30.2